home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib02.dsk / AMPER INTERPRETER DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  4KB  |  90 lines
  1. 100  REM  ********************
  2. 110  REM  *                  *
  3. 120  REM  * APPLESOFT UTILS  *
  4. 130  REM  * 48K, DOS 3.3     *
  5. 140  REM  *                  *
  6. 150  REM  * CYBORG CORP.     *
  7. 160  REM  * BOSTON, MASS     *
  8. 170  REM  *                  *
  9. 180  REM  * R.M. MOTTOLA     *
  10. 190  REM  * 7/80             *
  11. 200  REM  *                  *
  12. 210  REM  ********************
  13. 220 :
  14. 230 :
  15. 250  REM  *********************
  16. 260  REM  * AMPER INTERPRETER *
  17. 270  REM  * PROGRAMS ARE ALL  *
  18. 280  REM  * COPYRIGHT (C) 1980*
  19. 290  REM  * BY MICRO-SPARC INC*
  20. 292  REM  * LINCOLN MA 01773  *
  21. 294  REM  *********************
  22. 300 D$ =  CHR$(4)
  23. 1000  HOME : PRINT 
  24. 1010  PRINT  TAB( 11)"PRINT...USING DEMO"
  25. 1020  PRINT : PRINT 
  26. 1030  PRINT "THIS DEMONSTRATION SHOWS SOME OF THE    FEATURES OF THE PRINT... USING FUNCTION"
  27. 1040  PRINT "OF THE AMPER SUB-INTERPRETER. THIS      FUNCTION ALLOWS YOU TO PRINT STRINGS"
  28. 1050  PRINT "RIGHT-JUSTIFIED AND PADDED WITH BLANKS  FOR EASY COLUMN FORMATTING. IT WILL"
  29. 1060  PRINT "ALSO OUTPUT FLOATING POINT VALUES IN THESAME FORMAT, ROUNDING OFF IF NECESSARY"
  30. 1070  PRINT "TO FIT. IF YOU DESIRE, NUMERICAL VALUES MAY BE OUTPUT IN FIXED POINT FORMAT,"
  31. 1080  PRINT "WITH OR WITHOUT COMMAS. AS AN ADDED     BONUS, ANY SINGLE BYTE VALUE CAN BE"
  32. 1090  PRINT "PRINTED IN EITHER HEX OR BINARY."
  33. 1100  VTAB 23: GOSUB 2000
  34. 1120  VTAB 5: & CLRPAG
  35. 1130  PRINT "ANY SINGLE BYTE VALUE CAN BE PRINTED IN BINARY OR HEX-": PRINT 
  36. 1140 F1$ = "FRMT,$9;"
  37. 1145 A$ = "VALUE":B$ = "HEX":C$ = "BINARY"
  38. 1150  & PRNT,A$,F1$
  39. 1160  & PRNT,B$,F1$
  40. 1165  PRINT "     ";
  41. 1170  & PRNT,C$,F1$
  42. 1180  PRINT : PRINT 
  43. 1190 F1$ = "FRMT,F9,S;"
  44. 1200 F2$ = "FRMT,'     $ ',H;"
  45. 1210 F3$ = "FRMT,'      ',B:"
  46. 1220  FOR N = 1 TO 10
  47. 1230 A =  INT( RND(1) *256)
  48. 1240  & PRNT,A,F1$: & PRNT,A,F2$: & PRNT,A,F3$
  49. 1250  NEXT N
  50. 1260  VTAB 23: GOSUB 2000
  51. 1280  VTAB 5: & CLRPAG
  52. 1290  PRINT "FLOATING POINT VALUES MAY BE OUTPUT WITHA SPECIFIED NUMBER OF CHARACTERS. IF THE RESULTING STRING IS SHORTER THAN"
  53. 1300  PRINT "SPECIFIED, IT WILL BE PADDED WITH THE   SELECTED PAD CHARACTER, AND RIGHT"
  54. 1310  PRINT "JUSTIFIED. IF IT IS LONGER, IT WILL BE  ROUNDED OFF TO FIT. IF IT CANNOT BE"
  55. 1320  PRINT "ROUNDED, THE OVERFLOW STRING WILL BE    OUTPUT INSTEAD."
  56. 1330  VTAB 15
  57. 1335 OV$ = "OVERFLO"
  58. 1340 F1$ = "FRMT,F11,S;"
  59. 1350 F2$ = "FRMT,'   ',F8,S;"
  60. 1360 F3$ = "FRMT,'    ',F7,0:"
  61. 1370  FOR N = 1 TO 6
  62. 1380 A =  RND(1) *10000000
  63. 1390  IF N = 1  OR N = 3  OR N = 5  THEN A =  -A
  64. 1400  & PRNT,A,F1$: & PRNT,A,F2$: & PRNT,A,F3$
  65. 1410  NEXT N
  66. 1420  VTAB 23: GOSUB 2000
  67. 1440  VTAB 5: & CLRPAG
  68. 1450  PRINT "FIXED POINT OUTPUT IS ALSO AVAILABLE.   YOU MAY SPECIFY NUMBER OF CHARACTERS,"
  69. 1460  PRINT "NUMBER OF DECIMAL PLACES, BOTH LEFT AND RIGHT PAD CHARACTERS, AND IF YOU DESIRE"
  70. 1470  PRINT "GROUPED OUTPUT WITH COMMAS."
  71. 1480  VTAB 12
  72. 1490  PRINT "  ACCOUNT#" SPC( 5)"BALANCE DUE": PRINT 
  73. 1500 F1$ = "FRMT,'     ',F5,0;"
  74. 1510 F2$ = "FRMT,'  ',C14,S,2,0:"
  75. 1520  FOR N = 1 TO 7
  76. 1530 A =  INT( RND(1) *10000):B =  RND(1) *10000000
  77. 1540  & PRNT,A,F1$: & PRNT,B,F2$
  78. 1550  NEXT N
  79. 1560  VTAB 23: GOSUB 2000
  80. 1580  VTAB 5: & CLRPAG
  81. 1590  PRINT "THE AMPER SUB-INTERPRETER, INCLUDING THEPRINT...USING FUNCTION HAS BEEN LOADED"
  82. 1600  PRINT "INTO MEMORY. YOU MAY WANT TO EXPERIMENT WITH THEM, NOW THAT THIS DEMONSTRATION"
  83. 1610  PRINT "IS OVER. SEE NIBBLE VOL.1 #6 FOR THE": PRINT "DOCUMENTATION AND INSTRUCTIONS."
  84. 1620  END 
  85. 2000  PRINT "HIT (RETURN) KEY TO CONTINUE:";
  86. 2010  GET A$: PRINT 
  87. 2012  PRINT D$;"BRUNAMPER INTERPRETER,A$91A0"
  88. 2015  HOME 
  89. 2020  RETURN 
  90. 2030 :